home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 25 / Cream of the Crop 25.iso / bbs / pcsuni1.zip / HOHO302.ZIP / HOHAUS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-03-24  |  27KB  |  1,015 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  TINTEGER006(99)
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     Integer  INTEGER013
  34.     Integer  INTEGER014
  35.     Integer  INTEGER015
  36.     Integer  INTEGER016
  37.     Integer  INTEGER017
  38.     Integer  INTEGER018
  39.     Integer  INTEGER019
  40.     Integer  INTEGER020
  41.     Integer  INTEGER021
  42.     Integer  INTEGER022
  43.     Integer  INTEGER023
  44.     Integer  INTEGER024
  45.     Integer  INTEGER025
  46.     Integer  INTEGER026
  47.     Integer  INTEGER027
  48.     Integer  INTEGER028
  49.     Integer  INTEGER029
  50.     Integer  INTEGER030
  51.     Integer  INTEGER031
  52.     Integer  INTEGER032
  53.     Integer  INTEGER033
  54.     Integer  INTEGER034
  55.     String   STRING001
  56.     String   TSTRING002(3)
  57.     String   STRING003
  58.     String   STRING004
  59.     String   STRING005
  60.     String   STRING006
  61.     String   STRING007
  62.     String   STRING008
  63.     String   STRING009
  64.     String   STRING010
  65.     String   STRING011
  66.     String   STRING012
  67.     String   STRING013
  68.     String   STRING014
  69.     String   STRING015
  70.     String   STRING016
  71.     String   STRING017
  72.     String   STRING018
  73.     String   STRING019
  74.     String   STRING020
  75.     String   STRING021
  76.     String   STRING022
  77.     String   STRING023
  78.     String   STRING024
  79.  
  80. ;------------------------------------------------------------------------------
  81.  
  82.     STRING003 = GetToken()
  83.     If (((Upper(STRING003) == "MAINT") || (Upper(STRING003) == "/MAINT")) && OnLocal()) Goto LABEL004
  84.     Goto LABEL001
  85.     End
  86.     If (0 == 0) STRING004 = "NO"
  87.     If (0 == 1) STRING004 = "YES"
  88.  
  89.     EndFunc
  90.  
  91.     :LABEL001
  92.     STRING010 = "HO' HOUSE  v3.02"
  93.     BOOLEAN001 = 0
  94.     STRING005 = "HOHAUS6"
  95.     If (!Exist(PPEPath() + STRING005 + ".PPE")) End
  96.     Call PPEPath() + STRING005 + ".PPE"
  97.     If (Exist(PPEPath() + "UNIVERSL.KEY")) Then
  98.         Goto LABEL025
  99.     Endif
  100.     If (Exist(PPEPath() + "UNI.KEY")) Then
  101.         Goto LABEL026
  102.     Endif
  103.     If (Exist(PPEPath() + PPEName() + ".KEY")) Then
  104.         FOpen 2, PPEPath() + PPEName() + ".KEY", 0, 0
  105.         FGet 2, STRING006
  106.         FGet 2, STRING007
  107.         FGet 2, STRING011
  108.         FClose 2
  109.         STRING008 = Mid(STRING006, 2, 1)
  110.         STRING009 = Mid(STRING007, 5, 1)
  111.         STRING008 = Abs(Asc(STRING008) + 37 - 100)
  112.         STRING009 = Abs(Asc(STRING009) + 37 - 100)
  113.         If ((Mid(STRING011, 1, 2) == STRING008) && (Mid(STRING011, 79, 2) == STRING009)) Then
  114.             BOOLEAN001 = 1
  115.             Goto LABEL002
  116.         Endif
  117.         BOOLEAN001 = 0
  118.     Endif
  119.     :LABEL002
  120.     StartDisp 1
  121.     Print "@X0F@CLS@@X07"
  122.     PrintLn ""
  123.     PrintLn "      @X07┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐"
  124.     PrintLn "      ├┼┼@X0F┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┘@X07┼┼┤"
  125.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70┌───────────────────────────────────────────────────────@X7F┐@X77┼@X08┼┼@X07┼┼┤"
  126.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│                                       @X71                @X7F│@X77┼@X08┼┼@X07┼┼┤"
  127.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    ┌─────────────────────────────────────────────@X7F┐    │@X77┼@X08┼┼@X07┼┼┤"
  128.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    │                                             @X7F│    │@X77┼@X08┼┼@X07┼┼┤"
  129.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    │         @X71PRACTICAL COMPUTER SERVICES@X70         @X7F│    │@X77┼@X08┼┼@X07┼┼┤"
  130.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    │                                             @X7F│    │@X77┼@X08┼┼@X07┼┼┤"
  131.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    │            @X74 @X70    @X74  @X71PRESENTS@X70                  @X7F│    │@X77┼@X08┼┼@X07┼┼┤"
  132.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    │                                        @X7F     │    │@X77┼@X08┼┼@X07┼┼┤"
  133.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70│    └@X7F─────────────────────────────────────────────┘    │@X77┼@X08┼┼@X07┼┼┤"
  134.     PrintLn "      ├┼┼@X0F┼┼@X77┼@X70└@X7F───────────────────────────────────────────────────────┘@X77┼@X08┼┼@X07┼┼┤"
  135.     PrintLn "      ├┼┼@X0F┘@X08┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼@X07┼┼┤"
  136.     PrintLn "      └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘"
  137.     PrintLn ""
  138.     PrintLn "      @X0D▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F"
  139.     PrintLn "       @X8E", STRING010, "@POS:48@@X0B(c)1996 All Rights Reserved@X0F"
  140.     PrintLn "      @X0D▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@X0F"
  141.     If (BOOLEAN001) Then
  142.         PrintLn "@X0B      REGISTERED TO:  @X0A", STRING006, "@X0B at @X0A", STRING007, "@X0F"
  143.         Newline
  144.     Else
  145.         If (BOOLEAN001) Goto LABEL003
  146.         PrintLn "                       @X8CUNREGISTERED EVALUATION COPY@X08"
  147.         Newline
  148.         INTEGER007 = 1
  149.         Color 15
  150.         For INTEGER007 = 10 To 1 Step -1
  151.             Print "                           DELAYING ", INTEGER007, " SECOND(S)..."
  152.             Delay 19
  153.             Backup 80
  154.         Next
  155.         Goto LABEL003
  156.     Endif
  157.     :LABEL003
  158.     Print "@X0APlease wait  @X02"
  159.     If (!Exist(PPEPath() + "PCS.DBF")) Call PPEPath() + "HOHAUS5.PPE"
  160.     If (!Exist(PPEPath() + "HOHAUS.DBF")) Call PPEPath() + "HOHAUS5.PPE"
  161.     STRING019 = "@X0C√@X07"
  162.     STRING020 = "@X0A√@X07"
  163.     STRING023 = "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  164.     STRING024 = "@X10└@X19─────────────────────────────────────────────────────────────────────────────@X19┘@X0F"
  165.     STRING021 = "@X40┌─────────────────────────────────────────────────────────────────────────────@X4C┐@X0F"
  166.     STRING022 = "@X40└@X4C─────────────────────────────────────────────────────────────────────────────@X4C┘@X0F"
  167.     DOpen 0, PPEPath() + "PCS.DBF", 0
  168.     DTop 0
  169.     DGet 0, "MAINTDATE", INTEGER023
  170.     DGet 0, "DAYDELETE", INTEGER024
  171.     DGet 0, "HOPICK", INTEGER025
  172.     DGet 0, "NDAYS", INTEGER026
  173.     DGet 0, "HOEARN", INTEGER027
  174.     DGet 0, "UPCOST", INTEGER028
  175.     DGet 0, "TRANS_LMT", INTEGER029
  176.     DGet 0, "OPD", INTEGER030
  177.     DGet 0, "ODDS", INTEGER031
  178.     DGet 0, "NOD", INTEGER032
  179.     DGet 0, "NOB", INTEGER033
  180.     DGet 0, "ENTRIES", INTEGER034
  181.     DClose 0
  182.     INTEGER022 = INTEGER022 + INTEGER033
  183.     If (INTEGER023 == ToInteger(Date())) Goto LABEL007
  184.     :LABEL004
  185.     DClose 5
  186.     DOpen 5, PPEPath() + "PCS.DBF", 0
  187.     DPut 5, "MAINTDATE", ToInteger(Date())
  188.     DClose 5
  189.     DOpen 1, PPEPath() + "HOHAUS.DBF", 0
  190.     DTop 1
  191.     :LABEL005
  192.     If (DEof(1)) Goto LABEL006
  193.     DPut 1, "ENTRIES", 0
  194.     If (DGet(1, "L_DATE") + INTEGER024 < ToInteger(Date())) DDelete 1
  195.     DSkip 1, 1
  196.     Goto LABEL005
  197.     :LABEL006
  198.     DTop 1
  199.     DPack 1
  200.     DClose 1
  201.     If (((Upper(STRING003) == "MAINT") || (Upper(STRING003) == "/MAINT")) && OnLocal()) Goto LABEL024
  202.     :LABEL007
  203.     STRING013 = String(PcbNode())
  204.     Print STRING020
  205.     If (PcbNode() == 0) STRING013 = "A"
  206.     Print STRING020
  207.     STRING014 = String(Random(1000)) + "X" + STRING013
  208.     Print STRING020
  209.     STRING015 = String(Random(1000)) + "X" + STRING013
  210.     Print STRING020
  211.     DOpen 0, PPEPath() + "HOHAUS.DBF", 0
  212.     Print STRING019
  213.     DTop 0
  214.     Print STRING019
  215.     DnCreate 0, PPEPath() + STRING015 + ".NDX", "HANDLE"
  216.     Print STRING019
  217.     DnCloseAll 0
  218.     DnCreate 0, PPEPath() + STRING014 + ".NDX", "NAME"
  219.     Print STRING019
  220.     DSeek 0, U_Name()
  221.     Print STRING019
  222.     If (DChkStat(0) > 0) Goto LABEL019
  223.     Print STRING019
  224.     SetEnv STRING013 + "RECNO=" + String(DRecNo(0))
  225.     STRING018 = ToInteger(GetEnv(STRING013 + "RECNO"))
  226.     If ((DGet(0, "L_DATE") == ToInteger(Date())) && (DGet(0, "ENTRIES") > INTEGER034)) Then
  227.         Gosub LABEL023
  228.     Else
  229.         Backup 80
  230.         ClrEol
  231.         Print "@X0APlease wait  @X02"
  232.         DPut 0, "ENTRIES", DGet(0, "ENTRIES") + 1
  233.         DOpen 2, PPEPath() + "LADIES.DBF", 0
  234.         Backup 80
  235.         ClrEol
  236.         Print "@X0AHang - Lookin' fo' yo' ho's @X02"
  237.         DTop 2
  238.         INTEGER019 = 1
  239.         STRING012 = "G1"
  240.         INTEGER021 = 1
  241.         :LABEL008
  242.         If (DEof(2)) Goto LABEL010
  243.         If (Strip(DGet(2, "OWNEDBY"), " ") == "NONE") Goto LABEL009
  244.         If (Strip(DGet(2, "OWNEDBY"), " ") == Strip(DGet(0, "HANDLE"), " ")) Then
  245.             DPut 0, STRING012, DGet(2, "NUMBER")
  246.             Print STRING020
  247.             Inc INTEGER019
  248.             If (INTEGER019 > 10) Goto LABEL010
  249.             STRING012 = Strip("G" + String(INTEGER019), " ")
  250.         Endif
  251.         :LABEL009
  252.         DSkip 2, 1
  253.         Print STRING019
  254.         If (INTEGER021 == 25) Then
  255.             Backup 25
  256.             ClrEol
  257.             INTEGER021 = 0
  258.         Endif
  259.         Inc INTEGER021
  260.         Goto LABEL008
  261.         :LABEL010
  262.         DPut 0, "L_DATE", ToInteger(Date())
  263.         DPut 0, "PLAYED", DGet(0, "PLAYED") + 1
  264.         DPut 0, "C_ACT_L", INTEGER030
  265.         Backup 80
  266.         ClrEol
  267.         :LABEL011
  268.         StartDisp 1
  269.         BOOLEAN002 = 1
  270.         Gosub LABEL021
  271.         Newlines 2
  272.         If (AnsiOn()) Newline
  273.         PrintLn "       @X10┌───────────────────────────────────────────────────────────────@X19┐@X19@X0F"
  274.         If (Len(Trim(DGet(0, "MESSAGE"), " ")) == 0) Then
  275.             Print "       @X10│  @X9BA@X93djust Phrase!"
  276.         Else
  277.             Print "       @X10│  @X1BA@X13djust Phrase!"
  278.         Endif
  279.         PrintLn "          @X1BB@X13uy Condoms           @X1BF@X13ind Whore     @X19│@X0F"
  280.         PrintLn "       @X10│  @X1BO@X13ffensive Actions!      @X1BG@X13et Cronies!          @X1BP@X13ay Off Police @X19│@X0F"
  281.         Print "       @X10│  @X1BD@X13octor                  @X1BE@X13nter Bank            "
  282.         If (Exist(PPEPath() + String(DGet(0, "MAIL_NUM")) + ".MSG")) Then
  283.             PrintLn "@X9BM@X93essage Menu   @X19│@X0F"
  284.         Else
  285.             PrintLn "@X1BM@X13essage Menu   @X19│@X0F"
  286.         Endif
  287.         Print "       @X10│  @X1BL@X13ow/Hi Gambling! @X1A(@X1C", INTEGER022, "@X1A)@X1B"
  288.         PrintLn "    @X1BU@X13pgrade Whore House   @X1BW@X13hore Info     @X19│@X0F"
  289.         PrintLn "       @X10│  @X1BQ@X13uit Game               @X1BS@X13tart Over!           @X1BN@X13ext Day       @X19│@X0F"
  290.         Print "       @X10│  @X1BV@X13iew Scores             @X1BH@X13elp                  "
  291.         If (CurSec() >= SysopSec()) Then
  292.             PrintLn "@X1BR@X13estricted!@X19@POS:72@│@X0F"
  293.         Else
  294.             PrintLn "@POS:72@@X19│@X0F"
  295.         Endif
  296.         PrintLn "       @X10└@X19───────────────────────────────────────────────────────────────┘@X0F"
  297.         If (BOOLEAN001 == 0) Then
  298.             PrintLn "   @X8C█ █ █ @X0CUnregistered Software - Help your SysOp register this program! @X8C█ █ █@X0F"
  299.         Endif
  300.         If (AnsiOn()) Goto LABEL012
  301.         Newline
  302.         Print "                 @X03Your choice ", Mixed(Trim(DGet(0, "HANDLE"), " ")), " @X0A>@X0F "
  303.         InputStr "_", STRING012, 15, 1, "AOLDQVBGEUSHFPMWNR", 0 + 8
  304.         Goto LABEL013
  305.         :LABEL012
  306.         AnsiPos 10, 12
  307.         Print "@X03Your choice ", Mixed(Trim(DGet(0, "HANDLE"), " ")), " @X0A>@X0F "
  308.         InputStr "_", STRING012, 15, 1, "AOLDQVBGEUSHFPMWNR", 0 + 8
  309.         :LABEL013
  310.         If (STRING012 == "") Goto LABEL011
  311.         Select Case (STRING012)
  312.             Case "A"
  313.                 Gosub LABEL021
  314.                 Newlines 2
  315.                 PrintLn STRING023
  316.                 PrintLn "@X10│   @X1EOld Phrase @X1D:@X1B ", DGet(0, "MESSAGE"), "@POS:79@@X19│@X0F"
  317.                 PrintLn STRING024
  318.                 STRING012 = DGet(0, "MESSAGE")
  319.                 Newline
  320.                 InputStr "    @X0ANew Phrase @X0D: @X0E_", STRING012, 15, 50, Mask_Ascii(), 0
  321.                 If (STRING012 == "") Goto LABEL011
  322.                 DPut 0, "MESSAGE", STRING012
  323.                 STRING012 = ""
  324.                 Goto LABEL011
  325.             Case "B"
  326.                 Gosub LABEL021
  327.                 Newlines 2
  328.                 PrintLn STRING023
  329.                 PrintLn "@X10│              @X1EYou currently have @X1B", Trim(DGet(0, "CONDOMS"), " "), "@X1E Cost is@X12 ", DGet(0, "LEVEL") * 83, "@X1E Per Hundred.@POS:79@@X19│@X0F"
  330.                 PrintLn "@X10│@POS:79@@X19│@X0F"
  331.                 PrintLn "@X10│              @X1CHow many hundred more would you like to purchase?@POS:79@@X19│@X0F"
  332.                 PrintLn STRING024
  333.                 Newline
  334.                 InputStr "Hundred to buy _", INTEGER008, 15, 2, Mask_Num(), 0
  335.                 If ((INTEGER008 == "") || (INTEGER008 == 0)) Goto LABEL011
  336.                 If (DGet(0, "LEVEL") * 100 > DGet(0, "CASH")) Gosub LABEL022
  337.                 DPut 0, "CONDOMS", DGet(0, "CONDOMS") + INTEGER008 * 100
  338.                 DPut 0, "CASH", DGet(0, "CASH") - INTEGER008 * 100
  339.                 Goto LABEL011
  340.             Case "F"
  341.                 :LABEL014
  342.                 If (INTEGER020 > 9) Then
  343.                     Newlines 3
  344.                     PrintLn STRING021
  345.                     PrintLn "@X40│                       @X4EYOU CAN'T HANDLE ANY MORE GIRLS!     @POS:79@@X4C│@X0F"
  346.                     PrintLn STRING022
  347.                     Delay (2 * 182) / 10
  348.                     Goto LABEL011
  349.                 Endif
  350.                 If (DGet(0, "LOOKS") < 1) Then
  351.                     Gosub LABEL023
  352.                     Goto LABEL011
  353.                 Endif
  354.                 :LABEL015
  355.                 Gosub LABEL021
  356.                 DOpen 2, PPEPath() + "LADIES.DBF", 0
  357.                 INTEGER011 = Random(1000)
  358.                 If (INTEGER011 > DRecCount(2)) Goto LABEL015
  359.                 DGo 2, INTEGER011
  360.                 For INTEGER019 = Goto To 10
  361.                 Next
  362.                 PrintLn 
  363.                 PrintLn "                 @X10┌──────────────────────────────────────@X19┐@X0F"
  364.                 PrintLn "                 @X10│ @X1CWhore Name     @X10│ @X1ELooks @X10│ @X1ASize @X10│ @X1BSick @X10@X19│@X0F"
  365.                 PrintLn "                 @X10│ @X19──────────────────────────────────── @X19│@X0F"
  366.                 PrintLn "                 @X10│ @X1E", DGet(2, "NAME"), "@POS:27@@X10│  @X1E", DGet(2, "RANK"), "@POS:43@@X10│  @X1A", DGet(2, "BS"), "@X10@POS:50@│ @X1B ? @POS:57@@X19│@X0F"
  367.                 PrintLn "                 @X10└@X19──────────────────────────────────────┘@X0F"
  368.                 InputStr "                 Keep this one, or Toss it back? (K/T)", STRING016, 15, 1, "KT", 0 + 8
  369.                 If (STRING016 == "") Goto LABEL011
  370.                 If (STRING016 == "T") Then
  371.                     DPut 0, "LOOKS", DGet(0, "LOOKS") - 1
  372.                     If ((DGet(0, "LOOKS") < 1) || (INTEGER020 > 9)) Then
  373.                         Gosub LABEL023
  374.                         Goto LABEL011
  375.                     Endif
  376.                     Goto LABEL015
  377.                 Else
  378.                     If (INTEGER020 > 9) Goto LABEL014
  379.                     DPut 0, "LOOKS", DGet(0, "LOOKS") - 1
  380.                     DPut 0, STRING012, DGet(2, "NUMBER")
  381.                     DPut 2, "OWNEDBY", DGet(0, "HANDLE")
  382.                     If (DGet(0, "LOOKS") < 1) Then
  383.                         Gosub LABEL023
  384.                         Goto LABEL011
  385.                     Endif
  386.                 Endif
  387.                 Goto LABEL015
  388.             Case "O"
  389.                 DCloseAll
  390.                 Call PPEPath() + "HOHAUS1.PPE"
  391.                 Goto LABEL011
  392.             Case "G"
  393.                 Gosub LABEL021
  394.                 If (DGet(0, "MUSCLE") > 9) Then
  395.                     Newlines 3
  396.                     PrintLn STRING021
  397.                     PrintLn "@X40│                  @X4E     YOU CAN'T HANDLE ANY MORE MUSCLE! @POS:79@@X4C│@X0F"
  398.                     PrintLn STRING022
  399.                     Delay (2 * 182) / 10
  400.                     Goto LABEL011
  401.                     Goto LABEL011
  402.                 Endif
  403.                 INTEGER012 = DGet(0, "LEVEL") * 100
  404.                 If (DGet(0, "CASH") < INTEGER012) Gosub LABEL022
  405.                 Newlines 3
  406.                 PrintLn STRING023
  407.                 PrintLn "@X10│@X1E     IT'LL COST YOU $", INTEGER012, "     @POS:79@@X19│@X0F"
  408.                 PrintLn "@X10│@X1E     @POS:79@@X19│@X0F"
  409.                 PrintLn "@X10│@X1E                            BUY SOME MUSCLE? @POS:79@@X19│@X0F"
  410.                 PrintLn STRING024
  411.                 InputStr "                             @X09[@X0BY@X09]@X03es @X09[@X0BN@X09]@X03o _", STRING012, 15, 1, "YN", 0 + 8
  412.                 If (STRING012 == "N") Goto LABEL011
  413.                 DPut 0, "CASH", DGet(0, "CASH") - DGet(0, "LEVEL") * 100
  414.                 DPut 0, "MUSCLE", DGet(0, "MUSCLE") + 1
  415.                 Goto LABEL011
  416.             Case "P"
  417.                 Gosub LABEL021
  418.                 Newlines 2
  419.                 InputStr "@X0EAmount to pay your public servant@X0A? _", INTEGER008, 15, 9, Mask_Num(), 0
  420.                 If ((INTEGER008 == "") || (INTEGER008 == 0)) Goto LABEL011
  421.                 If (INTEGER008 > DGet(0, "CASH")) Then
  422.                     Gosub LABEL022
  423.                     Goto LABEL011
  424.                 Endif
  425.                 DPut 0, "CASH", DGet(0, "CASH") - INTEGER008
  426.                 DPut 0, "BRIBEAMT", DGet(0, "BRIBEAMT") + INTEGER008
  427.                 Goto LABEL011
  428.             Case "D"
  429.                 Call PPEPath() + "HOHAUS4.PPE"
  430.                 Goto LABEL011
  431.             Case "E"
  432.                 :LABEL016
  433.                 Gosub LABEL021
  434.                 STRING012 = ""
  435.                 Newlines 3
  436.                 PrintLn STRING023
  437.                 PrintLn "@X10│     @X1ACash on hand@X1E:@X12 ", Trim(DGet(0, "CASH"), " "), "      @X1ACash in Account@X1E:@X12 ", Trim(DGet(0, "BANKED"), " "), "@POS:79@@X19│@X0F"
  438.                 PrintLn "@X10│@POS:79@@X19│@X0F"
  439.                 PrintLn "@X10│ @X1E[@X1BD@X1E]@X13eposit Cash @X1C■ @X1E[@X1BW@X1E]@X13ithdraw Cash @X1C■ @X1E[@X1BT@X1E]@X13ransfer Cash! @X1C■ @X1E[@X1BENTER@X1E] @X13to Return@POS:79@@X19│@X0F"
  440.                 PrintLn STRING024
  441.                 PrintLn 
  442.                 InputStr "Your Choice: _", STRING012, 15, 1, "DWT", 0 + 8
  443.                 Backup 80
  444.                 ClrEol
  445.                 If (STRING012 == "") Goto LABEL011
  446.                 If (STRING012 == "D") Then
  447.                     InputStr "AMOUNT TO DEPOSIT: _", INTEGER008, 15, 9, Mask_Num(), 0
  448.                     If (INTEGER008 > DGet(0, "CASH")) Then
  449.                         Gosub LABEL022
  450.                         Goto LABEL016
  451.                     Endif
  452.                     DPut 0, "BANKED", DGet(0, "BANKED") + INTEGER008
  453.                     DPut 0, "CASH", DGet(0, "CASH") - INTEGER008
  454.                     Goto LABEL016
  455.                 Endif
  456.                 If (STRING012 == "W") Then
  457.                     InputStr "AMOUNT TO WITHDRAW: _", INTEGER008, 15, 9, Mask_Num(), 0
  458.                     If (INTEGER008 > DGet(0, "CASH")) Then
  459.                         Gosub LABEL022
  460.                         Goto LABEL016
  461.                     Endif
  462.                     DPut 0, "BANKED", DGet(0, "BANKED") - INTEGER008
  463.                     DPut 0, "CASH", DGet(0, "CASH") + INTEGER008
  464.                     Goto LABEL016
  465.                 Endif
  466.                 If (STRING012 == "T") Then
  467.                     If (DGet(0, "TRSF_AMT") >= INTEGER029) Then
  468.                         Gosub LABEL023
  469.                         Goto LABEL011
  470.                     Endif
  471.                     InputStr "USER TO TRANSFER TO: _", STRING012, 15, 15, Mask_Ascii(), 0 + 8
  472.                     If (STRING012 == "") Goto LABEL016
  473.                     DCloseAll
  474.                     DOpen 0, PPEPath() + "HOHAUS.DBF", 0
  475.                     DGo 0, STRING018
  476.                     DOpen 1, PPEPath() + "HOHAUS.DBF", 0
  477.                     Delete PPEPath() + STRING015
  478.                     DnCreate 1, PPEPath() + STRING015, "HANDLE"
  479.                     DTop 1
  480.                     DSeek 1, Trim(STRING012, " ")
  481.                     If (DChkStat(1) > 0) Then
  482.                         Backup 80
  483.                         ClrEol
  484.                         PrintLn 
  485.                         PrintLn STRING021
  486.                         PrintLn "@X40│           @X4E     THAT PLAYER IS EITHER OUT OF TOWN OR DEAD.......@POS:79@@X4C│@X0F"
  487.                         PrintLn STRING022
  488.                         Delay (2 * 182) / 10
  489.                         DClose 1
  490.                         DnCloseAll 1
  491.                         Delete PPEPath() + STRING015
  492.                         Goto LABEL016
  493.                     Endif
  494.                     Backup 80
  495.                     ClrEol
  496.                     InputStr "AMOUNT TO TRANSFER: _", INTEGER008, 15, 9, Mask_Num(), 0
  497.                     If ((INTEGER008 == "") || (INTEGER008 == 0)) Then
  498.                         DClose 1
  499.                         DnCloseAll 1
  500.                         Delete PPEPath() + STRING015
  501.                         Goto LABEL016
  502.                     Endif
  503.                     If (INTEGER008 > DGet(0, "CASH")) Then
  504.                         DClose 1
  505.                         DnCloseAll 1
  506.                         Delete PPEPath() + STRING015
  507.                         Gosub LABEL022
  508.                         Goto LABEL016
  509.                     Endif
  510.                     DPut 0, "CASH", DGet(0, "CASH") - INTEGER008
  511.                     DPut 1, "BANKED", DGet(1, "BANKED") + INTEGER008
  512.                     DPut 0, "TRSF_AMT", DGet(0, "TRSF_AMT") + INTEGER008
  513.                     DClose 1
  514.                     DnCloseAll 1
  515.                     Delete PPEPath() + STRING015
  516.                     Goto LABEL016
  517.                 Endif
  518.             Case "M"
  519.                 DCloseAll
  520.                 Call PPEPath() + "HOHAUS3.PPE"
  521.                 Goto LABEL011
  522.             Case "L"
  523.                 If (INTEGER022 < 1) Then
  524.                     Gosub LABEL023
  525.                     Goto LABEL011
  526.                 Endif
  527.                 If (Trim(DGet(0, "CASH"), " ") == "0") Then
  528.                     Gosub LABEL022
  529.                     Goto LABEL011
  530.                 Endif
  531.                 INTEGER022 = INTEGER022 - 1
  532.                 Gosub LABEL021
  533.                 PrintLn STRING023
  534.                 PrintLn "@X10│ @X1BYou head down to the basement of your house for a bit of action when@POS:79@@X19│@X0F"
  535.                 PrintLn "@X10│ @X1Bone of the regulars accosts you:@POS:79@@X19│@X0F"
  536.                 PrintLn "@X10│@POS:79@@X19│@X0F"
  537.                 PrintLn "@X10│ @X1BI know a number under a hundred, and I'll bet you any amount@POS:79@@X19│@X0F"
  538.                 PrintLn "@X10│ @X1Bthat you can't guess it.  I'll even give you @X1E", INTEGER031, "@X1B guesses at it.@POS:79@@X19│@X0F"
  539.                 PrintLn STRING024
  540.                 Newline
  541.                 :LABEL017
  542.                 InputStr "@X0B So tell me, how many dollars do you want to bet @X0E> _", INTEGER016, 15, 10, Mask_Num(), 0
  543.                 If ((INTEGER016 == "") || (INTEGER016 == 0)) Then
  544.                     Gosub LABEL021
  545.                     PrintLn STRING021
  546.                     PrintLn "@X40│         @X4EScared to bet with an old cripple, eh?@POS:79@@X4C│@X0F"
  547.                     PrintLn STRING022
  548.                     Print "              "
  549.                     Wait
  550.                     Goto LABEL011
  551.                 Endif
  552.                 If (INTEGER016 > DGet(0, "CASH")) Then
  553.                     Gosub LABEL021
  554.                     PrintLn STRING021
  555.                     PrintLn "@X40│                  @X4EHey, show the cash first!@POS:79@@X4C│@X0F"
  556.                     PrintLn STRING022
  557.                     Print "              "
  558.                     Wait
  559.                     Goto LABEL017
  560.                 Endif
  561.                 Cls
  562.                 Newlines 2
  563.                 DPut 0, "CASH", DGet(0, "CASH") - INTEGER016
  564.                 Gosub LABEL021
  565.                 PrintLn STRING023
  566.                 PrintLn "@X10│ @X1BOk, I have my number all set, and to make it fair, I will tell it to the@POS:79@@X19│@X0F"
  567.                 PrintLn "@X10│ @X1BBouncer standing right next to you.  He leans over and whispers something@POS:79@@X19│@X0F"
  568.                 PrintLn "@X10│ @X1Bunintelligble to the man next to you.@POS:79@@X19│@X0F"
  569.                 PrintLn STRING024
  570.                 Newlines 3
  571.                 Print "                         "
  572.                 Wait
  573.                 Cls
  574.                 INTEGER018 = Random(100)
  575.                 Newline
  576.                 For INTEGER009 = 1 To INTEGER031
  577.                     Print "Guess #", INTEGER009
  578.                     InputStr "@X04) @X0AWell what will it be @X8E>@X0F _", INTEGER017, 14, 3, Mask_Num(), 0
  579.                     If (INTEGER017 < INTEGER018) Then
  580.                         Newline
  581.                         PrintLn "@X0BToo Low!@X0F"
  582.                         Continue
  583.                     Endif
  584.                     If (INTEGER017 > INTEGER018) Then
  585.                         Newline
  586.                         PrintLn "@X0CToo High!@X0F"
  587.                         Continue
  588.                     Endif
  589.                     Newline
  590.                     PrintLn "@X89You Got It!  I can't believe it!@X0F"
  591.                     Newline
  592.                     Gosub LABEL021
  593.                     PrintLn STRING023
  594.                     PrintLn "@X10│@X1AHere is your $@X12", INTEGER016 * 2, "@X1A, don't spend it all in one place!@POS:79@@X19│@X0F"
  595.                     PrintLn STRING024
  596.                     DPut 0, "CASH", DGet(0, "CASH") + INTEGER016 * 2
  597.                     Newlines 2
  598.                     Print "                     "
  599.                     Wait
  600.                     Goto LABEL011
  601.                 Next
  602.                 If (INTEGER009 >= 6) Then
  603.                     Gosub LABEL021
  604.                     PrintLn STRING021
  605.                     PrintLn "@X40│ @XCELoser! @X4EI hardly ever lose this game!  Thanks for the @X4A", INTEGER016, "@X4E bucks!@POS:79@@X4C│@X0F"
  606.                     PrintLn STRING022
  607.                     Newline
  608.                     Print "                      "
  609.                     Wait
  610.                 Endif
  611.                 Goto LABEL011
  612.             Case "U"
  613.                 Gosub LABEL021
  614.                 INTEGER015 = (DGet(0, "LEVEL") * 5000) * INTEGER028
  615.                 If (DGet(0, "CASH") < INTEGER015) Then
  616.                     Gosub LABEL022
  617.                     Goto LABEL011
  618.                 Endif
  619.                 PrintLn STRING023
  620.                 PrintLn "@X10│ @X1EIt'll cost you $@X1A", INTEGER015, "@X1E Pay it?  @X1A[@X1BY@X1A/@X1BN@X1A]@POS:79@@X19│@X0F"
  621.                 PrintLn STRING024
  622.                 InputStr "_", STRING012, 15, 1, "YN", 0 + 8
  623.                 If (STRING012 == "N") Goto LABEL011
  624.                 DPut 0, "CASH", DGet(0, "CASH") - INTEGER015
  625.                 DPut 0, "LEVEL", DGet(0, "LEVEL") + 1
  626.                 DPut 0, "BRIBEAMT", 0
  627.                 Goto LABEL011
  628.             Case "W"
  629.                 DCloseAll
  630.                 Call PPEPath() + "HOHAUS4.PPE"
  631.                 Goto LABEL011
  632.             Case "Q"
  633.                 Goto LABEL024
  634.             Case "S"
  635.                 Gosub LABEL021
  636.                 Newlines 2
  637.                 PrintLn STRING021
  638.                 PrintLn "@X40│      @X4E     Are you **SURE** you want to delete your current record ?  @POS:79@@X4C│@X0F"
  639.                 PrintLn "@X40│ @POS:79@@X4C│@X0F"
  640.                 PrintLn "@X40│      @X4E             Type @XCEYES@X4E to start over again from scratch. @POS:79@@X4C│@X0F"
  641.                 PrintLn STRING022
  642.                 Newlines 2
  643.                 InputStr "                    @X0EYES @X0Bor @X0CNO@X0F _", STRING012, 15, 3, Mask_Ascii(), 0 + 8
  644.                 If (STRING012 == "YES") Then
  645.                     DCloseAll
  646.                     DOpen 0, PPEPath() + "HOHAUS.DBF", 0
  647.                     DGo 0, STRING018
  648.                     DOpen 2, PPEPath() + "LADIES.DBF", 0
  649.                     DTop 2
  650.                     For INTEGER010 = 1 To INTEGER020
  651.                         STRING016 = Strip("G" + String(INTEGER010), " ")
  652.                         DGo 2, DGet(0, STRING016)
  653.                         DPut 2, "OWNEDBY", "NONE"
  654.                     Next
  655.                     DBlank 0
  656.                     DDelete 0
  657.                     Goto LABEL024
  658.                 Endif
  659.                 Goto LABEL011
  660.             Case "N"
  661.                 If (INTEGER026 < 1) Then
  662.                     Gosub LABEL023
  663.                     Goto LABEL011
  664.                 Endif
  665.                 INTEGER026 = INTEGER026 - 1
  666.                 INTEGER013 = Random(10)
  667.                 If (INTEGER013 == 8) Goto LABEL018
  668.                 DPut 0, "LOOKS", DGet(0, "LOOKS") + INTEGER025
  669.                 If (DGet(0, "CONDOMS") < INTEGER020) Then
  670.                     DClose 2
  671.                     DOpen 2, PPEPath() + "LADIES.DBF", 0
  672.                     For INTEGER019 = 1 To INTEGER020
  673.                         STRING016 = Strip("G" + String(INTEGER019), " ")
  674.                         If (Random(10) == 8) Then
  675.                             DGo 2, DGet(0, STRING016)
  676.                             DPut 2, "INFECTED", "Y"
  677.                         Endif
  678.                     Next
  679.                     DClose 2
  680.                 Endif
  681.                 DClose 2
  682.                 DOpen 2, PPEPath() + "LADIES.DBF", 0
  683.                 DTop 2
  684.                 INTEGER013 = 0
  685.                 INTEGER014 = 0
  686.                 For INTEGER010 = 1 To INTEGER020
  687.                     STRING016 = Strip("G" + String(INTEGER010), " ")
  688.                     DGo 2, DGet(0, STRING016)
  689.                     If (DGet(2, "INFECTED") == "Y") INTEGER013 = DGet(2, "RANK") * DGet(2, "BS") * Abs(INTEGER027 / 2)
  690.                     If (DGet(2, "INFECTED") == "N") INTEGER013 = DGet(2, "RANK") * DGet(2, "BS") * INTEGER027
  691.                     INTEGER014 = INTEGER014 + INTEGER013
  692.                     DPut 0, "CONDOMS", DGet(0, "CONDOMS") - Random(10)
  693.                 Next
  694.                 Gosub LABEL021
  695.                 Newlines 3
  696.                 PrintLn STRING023
  697.                 PrintLn "@X10│                   @X1EYour whores made you $@X1A", INTEGER014, "@X1E today.@POS:79@@X19│@X0F"
  698.                 PrintLn STRING024
  699.                 DPut 0, "CASH", DGet(0, "CASH") + INTEGER014
  700.                 Delay (3 * 182) / 10
  701.                 Goto LABEL011
  702.             Case "V"
  703.                 Call PPEPath() + "HOHAUS2.PPE"
  704.                 Goto LABEL011
  705.             Case "H"
  706.                 Cls
  707.                 DispFile PPEPath() + "HO-HELP.1", 4 + 1
  708.                 Print "                         "
  709.                 Wait
  710.                 Goto LABEL011
  711.             Case "R"
  712.                 DCloseAll
  713.                 Call PPEPath() + "HOHAUS5.ppe"
  714.                 Goto LABEL011
  715.         End Select
  716.         :LABEL018
  717.         Newlines 2
  718.         PrintLn STRING021
  719.         PrintLn "@X40│                @X4E     YOU GOT YOURSELF NAILED IN A STING OPERATION!  @POS:79@@X4C│@X0F"
  720.         PrintLn "@X40│                                                                        @POS:79@@X4C│@X0F"
  721.         If (DGet(0, "LEVEL") > 1) PrintLn "@X40│                              @X4BYOU LOST A HOUSE LEVEL!               @POS:79@@X4C│@X0F"
  722.         PrintLn "@X40│                          @X4AYOUR BRIBED COPS WERE IN ON IT!           @POS:79@@X4C│@X0F"
  723.         If (DGet(0, "MUSCLE") > 0) PrintLn "@X40│                      @X4DONE OF YOUR BOUNCERS WAS SHOT BY THE COPS!    @POS:79@@X4C│@X0F"
  724.         PrintLn STRING022
  725.         If (DGet(0, "LEVEL") > 1) DPut 0, "LEVEL", DGet(0, "LEVEL") - 1
  726.         DPut 0, "BRIBEAMT", 0
  727.         DPut 0, "CASH", 0
  728.         If (DGet(0, "MUSCLE") > 0) DPut 0, "MUSCLE", DGet(0, "MUSCLE") - 1
  729.         Delay (2 * 182) / 10
  730.         Goto LABEL011
  731.         :LABEL019
  732.         Cls
  733.         STRING012 = "N"
  734.         Newlines 4
  735.         PrintLn "@X07 @X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██"
  736.         PrintLn "@X8C @XC0██@X07┌────────────────────────────────────────────────────────────────────────┐@XC0██@X07"
  737.         PrintLn " @X8C██@X07│                                                                        │@X8C██"
  738.         PrintLn "@X8C @XC0██@X07│      @X0CHo' House @X0Eis an adult door game, and as such may offend your      @X07│@XC0██@X07"
  739.         PrintLn " @X8C██@X07│      @X0Emoralistic sensibilities.  If you are easily offended, have a     @X07│@X8C██"
  740.         PrintLn "@X8C @XC0██@X07│      @X0Eproblem with sex, sexual innuendo, or debasing the opposite       @X07│@XC0██@X07"
  741.         PrintLn " @X8C██@X07│      @X0Esex, then by all means answer @X0CN@X0E to the next question!             @X07│@X8C██"
  742.         PrintLn "@X8C @XC0██@X07│      @X0EOtherwise hit @X09Y@X0E and hang on for the ride of your life!            @X07│@XC0██@X07"
  743.         PrintLn "@X8C ██@X07│                                                                        @X07│@X8C██"
  744.         PrintLn "@X8C @XC0██@X07└────────────────────────────────────────────────────────────────────────┘@XC0██@X07"
  745.         PrintLn " @X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@XC0██@X8C██@X07"
  746.         Newlines 2
  747.         InputStr "              @X0CDo you wish to continue this door game @X0E(@X0AY@X0E/@X0CN@X0E) _", STRING012, 15, 1, "YN", 0 + 8
  748.         If ((STRING012 == "N") || (STRING012 == "")) Then
  749.             DCloseAll
  750.         Else
  751.             Newlines 3
  752.             :LABEL020
  753.             STRING012 = ""
  754.             Print "      @X0AAlias you want to use@X0E: .........................@X0F"
  755.             Backup 25
  756.             InputStr "_", STRING012, 10, 25, Mask_Ascii(), 0 + 8
  757.             DTop 0
  758.             DnOpen 0, PPEPath() + STRING015 + ".NDX"
  759.             DSeek 0, Trim(STRING012, " ")
  760.             If (DChkStat(0) < 1) Then
  761.                 Backup 80
  762.                 ClrEol
  763.                 PrintLn "@X0EWe already have a@X0C ", STRING012, "@X0E here.  Choose another alias.@X0F"
  764.                 Delay (2 * 182) / 10
  765.                 Goto LABEL020
  766.             Endif
  767.             DNew 0
  768.             DPut 0, "NAME", U_Name()
  769.             DPut 0, "HANDLE", STRING012
  770.             DPut 0, "LEVEL", 1
  771.             DPut 0, "STATUS", 1
  772.             DPut 0, "CASH", 1000
  773.             STRING017 = String(Random(99999)) + String(Random(99999))
  774.             DPut 0, "MAIL_NUM", Left(STRING017, 8)
  775.             DAdd 0
  776.             SetEnv STRING013 + "RECNO=" + String(DRecNo(0))
  777.             STRING018 = ToInteger(GetEnv(STRING013 + "RECNO"))
  778.             Goto LABEL010
  779.             :LABEL021
  780.             DCloseAll
  781.             DOpen 0, PPEPath() + "HOHAUS.DBF", 0
  782.             DGo 0, STRING018
  783.             INTEGER020 = 0
  784.             For INTEGER019 = 1 To 10
  785.                 STRING012 = Strip("G" + String(INTEGER019), " ")
  786.                 If (DGet(0, STRING012) > 0) Inc INTEGER020
  787.             Next
  788.             DPut 0, "DEFENSE", (DGet(0, "KILLS") + DGet(0, "MUSCLE") + DGet(0, "BANKED") + DGet(0, "BRIBEAMT") + INTEGER020) * DGet(0, "LEVEL")
  789.             DPut 0, "NETWORTH", DGet(0, "CASH") + DGet(0, "BANKED") + DGet(0, "LEVEL") * (DGet(0, "MUSCLE") * 100) + (INTEGER020 * 100) * DGet(0, "LEVEL")
  790.             If (DGet(0, "CONDOMS") < 1) DPut 0, "CONDOMS", 0
  791.             Cls
  792.             If (BOOLEAN002) Then
  793.                 PrintLn STRING023
  794.                 PrintLn "@X10│@X1F", Mixed(Trim(DGet(0, "HANDLE"), " ")), "'s Holdings@POS:40@@X13Networth@X10:@X1A ", Trim(DGet(0, "NETWORTH"), " "), "@X13@POS:65@Level@X10:@X1E ", Trim(DGet(0, "LEVEL"), " "), "@POS:79@@X19│@X0F"
  795.                 PrintLn STRING024
  796.             Endif
  797.             PrintLn STRING023
  798.             PrintLn "@X10│@X13Defensive status@X10:@X1E ", DGet(0, "DEFENSE"), "@POS:25@@X13Condom Count @X10:@X1C ", Trim(DGet(0, "CONDOMS"), " "), "@X13@POS:50@Cronies@X10:@X1E ", Trim(DGet(0, "MUSCLE"), " "), "@POS:64@@X13Whores@X10:@X1C ", INTEGER020, "@POS:79@@X19│@X0F"
  799.             PrintLn STRING024
  800.             PrintLn "@X10┌──────────────────────────────@X19┐@X10┌────────────────────@X19┐@X10┌───────────────────────@X19┐@X0F"
  801.             PrintLn "@X10│@X13   Player Days left@X10: ", INTEGER026, "@X19@POS:32@│@X10│ ", "  @X13Cash@X10:@X12 ", Trim(DGet(0, "CASH"), " "), "@X19@POS:54@│@X10│", " @X13Bribes out@X10:@X1D ", Trim(DGet(0, "BRIBEAMT"), " "), "@POS:79@@X19│@X0F"
  802.             PrintLn "@X10│@X13Offensive acts left@X10:@X9C ", Trim(DGet(0, "C_ACT_L"), " "), "@X19@POS:32@│@X10│ ", "@X13@POS:20@Banked@X10:@X1A ", Trim(DGet(0, "BANKED"), " "), "@POS:54@@X19│@X10│", "@X13 Played@X1E ", Trim(DGet(0, "PLAYED"), " "), "@X13 Times", "@POS:79@@X19│@X0F"
  803.             PrintLn "@X10└@X19──────────────────────────────┘@X10└@X19────────────────────┘@X10└@X19───────────────────────┘@X0F"
  804.             Return
  805.             :LABEL022
  806.             Gosub LABEL021
  807.             Newlines 3
  808.             PrintLn STRING021
  809.             PrintLn "@X40│                           @X4EINSUFFICIENT CASH ON HAND!  @POS:79@@X4C│@X0F"
  810.             PrintLn STRING022
  811.             Delay (2 * 182) / 10
  812.             Return
  813.             :LABEL023
  814.             Gosub LABEL021
  815.             Newlines 3
  816.             PrintLn STRING021
  817.             PrintLn "@X40│               @X4E     YOU'RE OUT OF TIME FOR THIS ACTION TODAY! @POS:79@@X4C│@X0F"
  818.             PrintLn STRING022
  819.             Delay (2 * 182) / 10
  820.             Return
  821.         Endif
  822.     Endif
  823.     :LABEL024
  824.     Cls
  825.     DCloseAll
  826.     Delete PPEPath() + STRING014 + ".NDX"
  827.     Delete PPEPath() + STRING015 + ".NDX"
  828.     Cls
  829.     End
  830.     :LABEL025
  831.     FOpen 1, PPEPath() + "UNIVERSL.KEY", 0, 0
  832.     FDefIn 1
  833.     For INTEGER004 = 1 To 3
  834.         FDGet TSTRING002(INTEGER004)
  835.     Next
  836.     FClose 1
  837.     STRING001 = TSTRING002(1) + TSTRING002(2)
  838.     STRING001 = Strip(STRING001, " ")
  839.     For INTEGER005 = 1 To Len(STRING001)
  840.         TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
  841.     Next
  842.     INTEGER002 = 0
  843.     For INTEGER005 = 1 To 99
  844.         INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
  845.     Next
  846.     INTEGER003 = INTEGER002 * 659
  847.     INTEGER001 = INTEGER003
  848.     BOOLEAN001 = 0
  849.     If (INTEGER003 <> TSTRING002(3)) Then
  850.         BOOLEAN001 = 0
  851.     Else
  852.         BOOLEAN001 = 1
  853.         STRING006 = TSTRING002(1)
  854.         STRING007 = TSTRING002(2)
  855.     Endif
  856.     Goto LABEL002
  857.     :LABEL026
  858.     FOpen 1, PPEPath() + "UNI.KEY", 0, 0
  859.     FDefIn 1
  860.     For INTEGER004 = 1 To 3
  861.         FDGet TSTRING002(INTEGER004)
  862.     Next
  863.     FClose 1
  864.     STRING001 = TSTRING002(1) + TSTRING002(2)
  865.     STRING001 = Strip(STRING001, " ")
  866.     For INTEGER005 = 1 To Len(STRING001)
  867.         TINTEGER006(INTEGER005) = Asc(Mid(STRING001, INTEGER005, 1))
  868.     Next
  869.     INTEGER002 = 0
  870.     For INTEGER005 = 1 To 99
  871.         INTEGER002 = INTEGER002 + TINTEGER006(INTEGER005)
  872.     Next
  873.     INTEGER003 = INTEGER002 * 659
  874.     INTEGER001 = INTEGER003
  875.     BOOLEAN001 = 0
  876.     If (INTEGER003 <> TSTRING002(3)) Then
  877.         BOOLEAN001 = 0
  878.     Else
  879.         BOOLEAN001 = 1
  880.         STRING006 = TSTRING002(1)
  881.         STRING007 = TSTRING002(2)
  882.     Endif
  883.     Goto LABEL002
  884.  
  885. ;------------------------------------------------------------------------------
  886. ;
  887. ; Usage report (before postprocessing)
  888. ;
  889. ; ■ Statements used :
  890. ;
  891. ;    3       End
  892. ;    7       Cls
  893. ;    8       ClrEol
  894. ;    6       Wait
  895. ;    1       Color 
  896. ;    195     Goto 
  897. ;    106     Let 
  898. ;    32      Print 
  899. ;    140     PrintLn 
  900. ;    118     If 
  901. ;    1       DispFile 
  902. ;    3       FOpen 
  903. ;    3       FClose 
  904. ;    3       FGet 
  905. ;    2       StartDisp 
  906. ;    7       Delete 
  907. ;    18      InputStr 
  908. ;    33      Gosub 
  909. ;    3       Return
  910. ;    9       Delay 
  911. ;    3       Inc 
  912. ;    13      Newline
  913. ;    20      Newlines 
  914. ;    9       Call 
  915. ;    1       AnsiPos 
  916. ;    10      Backup 
  917. ;    2       FDefIn 
  918. ;    2       FDGet 
  919. ;    2       SetEnv 
  920. ;    1       EndFunc
  921. ;    13      DOpen 
  922. ;    11      DClose 
  923. ;    1       DPack 
  924. ;    9       DCloseAll
  925. ;    3       DnCreate 
  926. ;    1       DnOpen 
  927. ;    5       DnCloseAll 
  928. ;    1       DNew 
  929. ;    1       DAdd 
  930. ;    9       DTop 
  931. ;    7       DGo 
  932. ;    2       DSkip 
  933. ;    1       DBlank 
  934. ;    2       DDelete 
  935. ;    3       DSeek 
  936. ;    12      DGet 
  937. ;    48      DPut 
  938. ;
  939. ;
  940. ; ■ Functions used :
  941. ;
  942. ;    3       -
  943. ;    29      *
  944. ;    9       /
  945. ;    124     +
  946. ;    17      -
  947. ;    61      ==
  948. ;    3       <>
  949. ;    25      <
  950. ;    13      <=
  951. ;    22      >
  952. ;    29      >=
  953. ;    83      !
  954. ;    30      &&
  955. ;    21      ||
  956. ;    5       Len(
  957. ;    4       Upper()
  958. ;    6       Mid()
  959. ;    1       Left()
  960. ;    4       Asc()
  961. ;    20      Trim()
  962. ;    9       Random()
  963. ;    5       Date()
  964. ;    2       U_Name()
  965. ;    11      Strip()
  966. ;    14      String()
  967. ;    7       Mask_Num()
  968. ;    4       Mask_Ascii()
  969. ;    44      PPEPath()
  970. ;    2       PcbNode()
  971. ;    1       SysopSec()
  972. ;    2       OnLocal()
  973. ;    1       CurSec()
  974. ;    1       GetToken()
  975. ;    2       GetEnv()
  976. ;    7       Exist()
  977. ;    2       AnsiOn()
  978. ;    3       Abs()
  979. ;    2       PPEName()
  980. ;    7       ToInteger()
  981. ;    3       Mixed()
  982. ;    2       DEof()
  983. ;    1       DRecCount()
  984. ;    2       DRecNo()
  985. ;    105     DGet()
  986. ;    3       DChkStat()
  987. ;
  988. ;------------------------------------------------------------------------------
  989. ;
  990. ; Analysis flags : Cs
  991. ;
  992. ; C - Call child PPE ■ 3
  993. ;     This is usually normal, but may be a tricky way to launch some
  994. ;     sysop-only commands.
  995. ;     ■ Search for : CALL
  996. ;
  997. ; s - Sysop level access ■ 5
  998. ;     Program is reading the sysop access level, this may be normal
  999. ;     but still it is very suspect. It is the best way to give a user
  1000. ;     all priviledges. Check!
  1001. ;     ■ Search for : SYSOPSEC()
  1002. ;
  1003. ;------------------------------------------------------------------------------
  1004. ;
  1005. ; Postprocessing report
  1006. ;
  1007. ;    13      For/Next
  1008. ;    0       While/EndWhile
  1009. ;    45      If/Then or If/Then/Else
  1010. ;    1       Select Case
  1011. ;
  1012. ;------------------------------------------------------------------------------
  1013. ;                 AEGiS Corp - Break the routines, code against the machines!
  1014. ;------------------------------------------------------------------------------
  1015.